home *** CD-ROM | disk | FTP | other *** search
/ Nebula 1 / Nebula One.iso / Graphics / Misc / Wood.0.72 / Sources / PSWEnding.psw < prev    next >
Encoding:
Text File  |  1994-06-21  |  496 b   |  22 lines
  1.  
  2. defineps PSWEndingSolid(float numstring Pts[TotPts];int TotPts;
  3.                     char Ops[TotOps];int TotOps;float xPos;float yPos;float angle)
  4.     matrix currentmatrix
  5.     xPos yPos translate
  6.     angle rotate
  7.     [Pts (Ops)] ufill
  8.     setmatrix
  9. endps
  10.  
  11.  
  12. defineps PSWEndingHollow(float numstring Pts[TotPts];int TotPts;
  13.                     char Ops[TotOps];int TotOps;float xPos;float yPos;float angle)
  14.     matrix currentmatrix
  15.     xPos yPos translate
  16.     angle rotate
  17.     1 setgray
  18.     [Pts (Ops)] ufill
  19.     0 setgray
  20.     [Pts (Ops)] ustroke
  21.     setmatrix
  22. endps